The X-Philes (2nd Revision)/The X-Philes Number 1 (1995).iso/xphiles/hp48_1/sea

Text File | 1995-03-31 | 6KB | 83 lines

@
@     'Sea Animation'             November 24, 1990
@        by Kerry E. Wilkinson
@
@ This is a pretty simple example of multiple GROB animation.
@ The SHIP GROB is a sunken ship, BOTTOM is 3 different ocean floor
@ images, and SCHOOL is an animation sequence of some fish.
@ Just hit ANIM to execute. I have to apologize about the programming
@ of this module. I am just starting to get the hang of the graphics
@ on the HP48-SX. By the way, all of these images were created using
@ a program I wrote called ImageMaker(c). This is a sprite editor
@ and animator I wrote for the MS-DOS machines. It allows you to create
@ up to 18 animated images (sprites) that you can port into your
@ own programs by using either Borland's or Microsoft's putimage() functions.
@ It works in EGA and VGA from 320x200 256 colors up through
@ 640x480 16 colors, and is mouse and icon driven, with dialog and file
@ select boxes. I sell it shareware for $25.00 (it is up to version 3.0
@ with over 2 years of sporadic programming). This past weekend I modified
@ it to create ASCII GROB files, if there is just one image it saves it
@ as a single grob, if there are multiple it saves them as a list of GROBs.
@ I will upload a limited 'free' version for the HP48 owners. You can create
@ your images and they will be saved in a file called 'grob.hp'. The program
@ will be crippled in that you will not be able to save the image in the
@ format that would allow you to edit it again later. I am sorry about this,
@ but I would be doing a disservice to all of the registered users of
@ ImageMaker(c). Remember that any non black color (color value 0) will have
@ the pixel set on the HP end. Maybe HP will someday come out with a color
@ LCD version. The file SEA may be distributed without cost. You can use parts
@ or all of it for whatever purpose you wish, but I, Kerry E. Wilkinson, will
@ not be held responsible for any damages occuring directly, or indirectly, from
@ its use.
@
@ When you are looking at this animation, please remember that I am a
@ programmer, not an artist.
@                    Kerry

%%HP: T(3)A(D)F(.);
DIR
  ANIM
    \<< ERASE # 181d
# 64d PDIM { # 50d
# 0d } PVIEW BOTTOM
OBJ\-> DROP PICT {
# 30d # 56d } ROT
REPL PICT { # 90d
# 56d } ROT REPL
PICT { # 150d # 56d
} ROT REPL PICT {
# 90d # 24d } SHIP
REPL
      DO PICT {
# 0d # 0d } # 46d
# 30d BLANK REPL
170 'U' STO
        WHILE U
        REPEAT
SCHOOL OBJ\-> 1 SWAP
          START 'U'
DECR DROP PICT U
R\->B # 4d 2 \->LIST
ROT REPL
          NEXT
        END
      UNTIL 0
      END
    \>>
  U 137
  BOTTOM {
GROB 60 8 00000000000000000000000000608000002000000B70E000003004C0E13020000010064CFF10B0000C0C11CFFF38F70016EFFFFFFFFFFF00FFFFFFFFFFFFFFF0
GROB 60 8 000000600000000000000830000000000004060030100800000783481804040000F1A87C080606000EFF3C00FF030280EFFFFFFFFFFFF1E0FFFFFFFFFFFFFFF0
GROB 60 8 00000103000000000000018100000000000001C1708106000040C1FB90C0030000C0EFF7C360830000C0EFFFFF704F10C78FFFFFFFF3FF70FFFFFFFFFFFFFFF0
}
  SCHOOL {
GROB 46 30 000000000000000000000000000010000000000000000000000420000000000C30084000000020000000000000040000000000000000000000010000000000000000000000004000000000CF6000000000CF30000000008F3000000000006000000000004000000000000000000010000000000000000040000000000000000400000000000000000050000000000070008FB0000040008FF0000000000F700000000000C0000000000080000000000000000000
GROB 46 30 000000000000000000000000000000000000000800000000000020000000000C300000000000200420000000000000000000000200000000000000000000008000000000000040000000008F6000000000CF30000000008F3000000000006000000000004000000000000000000000000080000800000000000000000020000400000000000000000040000100000070000FB0000040008FF0000000000F700000000000C0000000000080000000000000000000
GROB 46 30 000000000000000020000000000000000000000000000000000420000000000C300000000000200000000000000210000000000000000000000100000000000000000000004040000000008F6000000000CF30000000008F3000000000006000000000004000000000000000000000000000000010000040000400000000000000000010000200000040000000000070008FB0000040008FF0000000000F700000000000C0000000000080000000000000000000
GROB 46 30 000000000000000000000000000010000000000000000000000020000000000C30001000000020000000000000000000000000090000000000000000000000800000000000004000000000AF6000000000CF30000000008F3000000000006000000000004000000000000000000000000000000010000000000400000020000000000000000200000840000000000070008FB0000040008FF0000000000F700000000000C0000000000080000000000000000000
GROB 46 30 000000000000000000000000000000000000000800000000000020000000000C300000000000200800000000000000000000000000000000008400000000000000000000004040000000008F6000000000CF30000000008F3000000000006000000000004000000000000000000000000000000000000000000800000000000200000010000000000040000100000070000FB0000040008FF0000000000F700000000000C0000000000080000000000000000000
}
  SHIP
GROB 60 40 00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000300004000000080C100004000000080700000C00000818C100000800000038F00000081000003C308070083000012FA08C1000200001ABA0870000600001E9B0E10000E00001FB98B00000C100093F9C900000C3000D3C9D80000043000F28B70700004F1007A0F30F1000C63083A9E1CF700086E0C349F1FF81008817E2499BD721008078720D0FE3720080C9F20707F14200801F930789F23200030836838D77E2000380E6830732C300030081E2817087000204E072604007000600A930F0C1F30004006E1C880F9100040E4C07EC00C0000E0C9F763900F0004C74E74C99CC7C097CF36C36484FFF0FFFFFFFFFFFFFFF0
END